data <- d1
strata <- 'congressional.district'
CACE_S1_path <- cace('path.to.citizenship.followup', 
                     'path.to.citizenship.baseline', 
                     data, B, strata, incl_sameparty = TRUE)
CACE_S1_immg <- cace('legal.immigration.followup', 
                     'legal.immigration.baseline', 
                     data, B, strata, incl_sameparty = TRUE)
CACE_S1_trus <- cace('trust.followup', 
                     'trust.baseline', 
                     data, B, strata, incl_sameparty = TRUE)
CACE_S1_appr <- cace('approval.followup', 
                     'approval.baseline', 
                     data, B, strata, incl_sameparty = TRUE)
CACE_S1_vint <- cace('vote.followup', 
                     'vote.baseline', 
                     data, B, strata, incl_sameparty = TRUE)
CACE_S1_actv <- cace('vote.november', 
                     'vote.baseline', 
                     data, B, strata, incl_sameparty = TRUE)
CACE_S1_turn <- cace('turnout.november', 
                     'turnout.baseline', 
                     data, B, strata, incl_sameparty = TRUE)